<%@ LANGUAGE="VBSCRIPT"%> <%Response.Buffer = True%> <% '*** This file defines all the constants used throughout the message board and there is quite a few of them. Dim StrConnect Dim objRec Dim objRec2 Dim objCommand Dim strSQL Dim CatTitle Dim CatID '*** If you need to use a DSN rather than a connection string change it so that you de-comment the first line and comment the second. strConnect = "DSN=thmartin-arcivwar" ' strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\html\users\tommymartinnet\database\arcwlinks.mdb" '*** The conection object is used all the time so we'll dimension it here Dim objConn '*** This constant is the name of your message board. Const LSTitle = "Links System" Const LSAdminPassword = "admin" '*** These are body tags. Const LSPageBody1 = "" Const LSCatCells = "" Const LSCatsTable = "" Const LSResTable = "" 'Row 1 Column 1 of the resources table Const LSResR1C1 = "

" 'Row 1 Column 1 of the resources table Const LSResR1C2 = "

" 'Rows 2 and 4 Column 1 of the resources table Const LSResR2a4C1 = "

" 'Row 3 Column 1 of the resources table Const LSResR3C1 = "

" '*** Define fonts '*** Where you see "s in HTML tags put a " in front. Otherwise you get an 'Expected end of statement' error Const FONT1 = "" Const FONT2 = "" Const FONT3 = "" Const FONT4 = "" '*** Define images for use in the board. Const MBImgLogo = "" '*** This is the important one that allows me to give this code away for free. Please use it somewhere on the front page or I will have to stop giving it away for nothing. Const PrintCredit = "Link-IT Developed by Allin Solutions" %> <% 'This is the page that redirects you to the link and increments the hit counter. Set objConn = Server.CreateObject ("ADODB.Connection") Set objRec2 = Server.CreateObject ("ADODB.Recordset") objConn.Open strconnect LinkID = Request.QueryString("linkid") objRec2.Open "links", objConn, 0, 2, 2 objRec2.Filter = "LinkID = " & LinkID objRec2("LinkHits") = objRec2("LinkHits") + 1 objRec2.Update Response.Redirect(""& objRec2("LinkURL") &"") objRec2.Close Set objRec2 = Nothing objConn.Close Set objConn = Nothing %>